home *** CD-ROM | disk | FTP | other *** search
/ Yellows - Privacy (Deluxe) / Akira Gomi Photographs - Yellows: Privacy (Deluxe) - Disc 1.iso / mono / goods.dxr / 00036.ls < prev    next >
Encoding:
Text File  |  1996-07-06  |  1.1 KB  |  32 lines
  1. on inits
  2.   global monolist, monoclist, keydetect, event
  3.   set monolist to ["027,A", "027,C", "027,E", "027,G", "027,H", "027,I", "027,J", "027,L", "027,M", "027,O", "027,R", "027,T", "027,U", "027,V", "027,W", "027,X", "027,Y"]
  4.   set monoclist to []
  5.   set a to count(monolist)
  6.   repeat with i = 1 to a
  7.     set mono to getAt(monolist, random(count(monolist)))
  8.     add(monoclist, mono)
  9.     deleteAt(monolist, getPos(monolist, mono))
  10.   end repeat
  11.   add(monoclist, "001,empty")
  12.   repeat with i = 2 to 7
  13.     puppetSprite(i, 1)
  14.     set the ink of sprite i to 0
  15.     set the type of sprite i to 1
  16.     set the foreColor of sprite i to 255
  17.     set the backColor of sprite i to 0
  18.   end repeat
  19. end
  20.  
  21. on columnset num
  22.   repeat with i = 1 to 3
  23.     repeat with t = 1 to 2
  24.       set monoc to getAt(monoclist, ((num - 1) * 2) + ((i - 1) * 2) + t)
  25.       set spnum to (2 * (i - 1)) + t + 1
  26.       set the castNum of sprite spnum to the number of member monoc
  27.       set the locH of sprite spnum to 130 + ((i - 1) * 189)
  28.       set the locV of sprite spnum to 162 + ((t - 1) * 156)
  29.     end repeat
  30.   end repeat
  31. end
  32.